//AdvStringGrid清空过程
2，设置：TAdvStringGrid-->option-->goEditing=true
//窗体刷新内容
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
cC1PART_NO=1;
// 0 1 2 3 4 5 6 7 8 9 10 11
procedure prStgInitialize1;
ACol: Integer; AState: TGridDrawState; ABrush: TBrush; AFont: TFont);
procedure prRefresh(pMode: byte);
TAdvStringGrid-->enableGraphics=true
end;
end;
if ACol=cNCols1[2]-2 then
for I:=1 to strGrid1.RowCount-1 do begin
procedure TForm1.strGrid1GetCellColor(Sender: TObject; ARow,
end;
end;}
procedure prStg1Clear;
8: AAlignment:=taCenter;

48: ABrush.Color:=RGB(250,232,193);
('Y','Y','N','C','C','clWindow','60','Dept','Y','POJBSUB','DELIVERY_TO_DEPT','3','Y','5'), // 4
begin
if ARow=0 then AAlignment:=taCenter
end;
for i:=1 to strGrid1.rowcount-1 do begin
begin
strGrid1.AddComboString('Y : 同意');
Var
public
1，添加一个TAdvStringGrid，并命名为strGrid1。
case pMode of
private
Form1: TForm1;
5，关联以下过程(只需要在窗体和strGrid1控件属性-事件页中双击相关项即可完成关联。)
修改后，将生成的静态数组cColProp1和静态列号复制到代码里即可。
CanEdit:=true
11-字段长度
ACol: Integer; var AAlignment: TAlignment);
begin
procedure TForm1.strGrid1CanEditCell(Sender: TObject; ARow,
strGrid1GetCellColor
1:begin
('Y','Y','N','E','R','clWindow','60','Qty','Y','POJBSUB','ORDER_QUANTITY','9','Y','3'), // 2
end else begin
//用属性数组定义
for J:=0 to cColQty1-1 do begin
procedure strGrid1GetEditorType(Sender: TObject; ACol,
begin
24: ABrush.Color:=RGB(227,249,248);
{ Private declarations }
CanEdit:=false
cColQty1=8;
case ACol of
Var
strGrid1.FixedRows:=1;
begin
Var
strGrid1CanEditCell
if cColProp1[I,1]='Y' then CanEdit:=true;
end;
end;
13-文本中位置 }
AEditor:=edComBoEdit;
12: ABrush.Color:=RGB(227,249,248);
strGrid1.Cells[J,I]:='';
end;
end;}
//AdvStringGrid初始化过程
strGrid1.AddComboString('N : 拒绝');
end;
关于修改cColProp1，你可以直接在上面的代码窗口中修改，但如果列相当多的话，这样改起来也是相当麻烦的，而且容易改错，也是不方便的!
else AAlignment:=taLeftJustify;
End;
I:integer;
6-宽度
end;
var
for I:=0 to cColQty1 do begin
{ Public declarations }
else
//设定列宽度和列标题
if cColProp1[I,4]='C' then AAlignment:=taCenter;
cUnit_ID='ENMA0101'; //声明常量，保存单元名称
2: AAlignment:=taCenter;
const
原理就是先声明常量，包括列数，行数，各列的属性，然后在程序的其它过程用这些常量来控制Cells。非常方便，便于修改和移植!
else begin
0:begin
strGrid1.ColWidths[I]:=strToInt(cColProp1[I,6]) //列宽
FormCreate
3: AAlignment:=taRightJustify;
exit;
canEdit:=false;
if ACol=I then begin
2: ABrush.Color:=RGB(250,232,193);
end;
通过这个模板，可以自动生成静态数组cColProp1和静态列号，修改起来也很直观，很方便。
end;
procedure TForm1.strGrid1GetEditorType(Sender: TObject; ACol,
end;
end;
1-编辑
{for j:=0 to cColQty1-1 do begin
//通过以下属性数组设置未通过，当两列checkbox时，只能设置一列。
3: ABrush.Color:=RGB(227,249,248);
end;
else if}
//直接定义
procedure TForm1.FormCreate(Sender: TObject);
begin
{if ARow>0 then begin
end; }
form1.caption:= cUnit_ID + ' ' + form1.caption;
I:integer;
strGrid1.RowCount:=1000;
else
7-标题
Case ACol of
procedure FormCreate(Sender: TObject);
CanEdit:=false;
end;
//用属性数组定义
strGrid1.AddCheckBox(j,i,false,false);
//窗体显示时执行代码
//设定单元表各列颜色
);
//声明常量，用于保存Cells的列数
以下为窗体整体代码，中间有说明。此段代码不光有动态AdvStringGrid的完美示例，还有一般窗体的常用的过程，比较窗体初始化，刷新过程。
prStg1Clear;
if cColProp1[I,0]='Y' then
('Y','N','N','E','L','clInfoBk','150','Part No','Y','POJBSUB','PART_NO','30','Y','2'), // 1
if cColProp1[3,J]='C' then
if cColProp1[I,1]='N' then CanEdit:=False;
Var
//设定单元表各列对齐方式
//用属性数组定义
end;}
uses
Var
procedure prClear(pMode:byte);
3，修改Form名称为form1，或替换以下代码中的form1为当前窗体的名字。
这样，如果修改Cells相关的属性，只需要修改数组cColProp1相关的值就可以实现了，很方便的。
if ACol=I then abrush.Color:=StringToColor(cColProp1[I,5]);

strGrid1.Cells[I,0]:=cColProp1[I,7]; //标题
end;
对此，我做了一个excel模板：动态Cells设定工具表，如附件。
cC1PART_NAME_C=6;
5-颜色
type
strGrid1GetAlignment
//窗体刷新代码
//窗体清空代码
cC1Data_Flag=7;
strGrid1.AddCheckBox(4,i,false,false);
cC1GROUP_A=5;
ARow: Integer; var AEditor: TEditorType);
if cColProp1[I,4]='R' then AAlignment:=taRightJustify;
end;
3-类型
strGrid1.RowCount:=2;
I:integer;
abrush.Color:=clBtnFace // 首行为灰色
10-字段名
begin
strGrid1.AddCheckBox(5,i,false,false);
FormShow
if ACol=I then begin

复制代码 代码如下:

0: AAlignment:=taRightJustify;

strGrid1.ClearComboString;
if strGrid1.cells[cC1Data_Flag,aRow]='C' then CanEdit:=false
procedure TForm1.prStgInitialize1;
//改为以下方式直接定义。
//其它清空内容
begin
4: ABrush.Color:=RGB(250,232,193);
procedure strGrid1GetCellColor(Sender: TObject; ARow,
//case strToInt(cColProp1[I,4])
end;
2-必输
procedure FormShow(Sender: TObject);
{if stgPList.Cells[cNCols1[3]-2,ARow]='1' then
else begin
else begin
cC1NO=0;
{0-显示
1: ABrush.Color:=RGB(227,249,248);
12-文本中读取
end;
cC1ORDER_QUANTITY=2;
I:integer;
//直接定义
//设定行数最大值，用于设置CheckedBox
end;
TForm1 = class(TForm)
6: AAlignment:=taCenter;
//声明常量数组，保存Cells的各种属性，各种属性含义如下：
end;
procedure TForm1.prClear(pMode:byte);
cColProp1: array[0..cColQty1-1] of array[0..13] of string=( //列属性
51: ABrush.Color:=RGB(227,249,248);
CanEdit:=false
end.
//声明常量，定义列号，便于修改与引用
strGrid1: TAdvStringGrid;
end;
I:Integer;
('Y','Y','N','C','C','clWindow','50','Grp','Y','POJBSUB','GROUP_A','3','Y','7'), // 5
procedure strGrid1CanEditCell(Sender: TObject; ARow,
end;
ACol: Integer; AState: TGridDrawState; ABrush: TBrush; AFont: TFont);
strGrid1.ColCount:=cColQty1;
strGrid1.RowCount:=2;
begin
动态Cells设定工具表 if cColProp1[I,4]='L' then AAlignment:=taLeftJustify;
for I:=0 to cColQty1-1 do begin
//设置cColProp1[3,J]='C'的单元格为CheckedBox格式
//以下代码首先根据列cC1Data_Flag的值设定一行是否可以编辑，然后再根据属性数组设定。
(以上过程在Delphi6中测试通过。)
for I:=0 to cColQty1 do begin
if cColProp1[I,1]='Y' then CanEdit:=true;
{if (strGrid1.cells[cC1Data_Flag,ARow]='') or (strGrid1.cells[cC1Data_Flag,ARow]='C') then begin
{$R *.dfm}
i,j:integer;
end;
if ARow=0 then
1: AAlignment:=taCenter;
interface
begin
implementation
ACol: Integer; var CanEdit: Boolean);
end;
strGrid1.FixedCols:=1;
for I:=0 to cColQty1 do begin // 非首行按属性数组设置颜色
unit ENMA0101;
end;
{if ARow=0 then AAlignment:=tacenter
14: ABrush.Color:=RGB(250,232,193);
//设定单元表各列是否可以编辑
end;
//显示编辑必输类型对齐 颜色 宽度 标题
if cColProp1[I,3]='M' then begin
//设定零件表初始行数和列数
此窗体，只需要简单准备如下，即可运行：
for I:=0 to cColQty1-1 do begin
cC1DELIVERY_TO_DEPT=4;
else begin
J:integer;
if ACol=I then begin
if cColProp1[I,1]='N' then CanEdit:=False;
prClear(0);
procedure TForm1.FormShow(Sender: TObject);
9-数据表名称
9: AAlignment:=taCenter;
//设定单元表各列控件类型
end;
//直接定义
strGrid1.ColWidths[I]:=0; //列宽
I:integer;
('Y','Y','N','M','L','clWindow','50','DF','Y','POJBSUB','VENDOR_NO','5','Y','6') // 7
procedure TForm1.strGrid1GetAlignment(Sender: TObject; ARow, ACol: Integer; var AAlignment: TAlignment);
{if aRow=0 then
end;

end;
prStgInitialize1;
procedure strGrid1GetAlignment(Sender: TObject; ARow,
end;
procedure Tform1.prRefresh(pMode: byte);
4，将以下代码覆盖原来的代码。
strGrid1.SetCheckBoxState(J,I,false);
('Y','N','N','E','R','clBtnFace','25','NO.','N','','','0','N','0'), // 0
Dialogs, Grids, AdvGrid;
//窗体创建时执行代码
('Y','N','N','E','C','clMoneyGreen','40','U/M','Y','POJBSUB','UNIT_OF_MEASURE','2','Y','4'), // 3
ARow: Integer; var AEditor: TEditorType);
cC1UNIT_OF_MEASURE=3;
4-对齐
('Y','N','N','E','L','clSkyBlue','160','Part Name','Y','POJBSUB','PART_NAME_C','70','Y','8'), // 6
else begin
Var
ACol: Integer; var CanEdit: Boolean);
for I:=0 to cColQty1 do begin
procedure TForm1.prStg1Clear;
strGrid1GetEditorType
end;
Var
end;}
if ACol=I then begin
8-是否从数据库中读取
4: AAlignment:=taCenter;